library(officer)
ft <- qflextable(HD_var_data)
read_docx() %>%
  body_add_flextable(value = ft) %>%
  print(target = "C:/Users/dutch/OneDrive/Desktop/HD_var_data.docx")
cowplot::plot_grid(gender_graph, cp_graph, fbs_graph, restecg_graph, exang_graph, slope_graph, ca_graph, thal_graph +
  theme(legend.position = "none"), legend)

cowplot::plot_grid(age_box, bps_box, chol_box, old_box)